home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 May / PCWMAY06.iso / Software / Freeware / First Page 2006 3.00 / fp2006-final-3.00-setup.exe / {app} / Iscripts / Image & Music Effects / random-bg-music.izs < prev    next >
Text File  |  2005-07-30  |  1KB  |  57 lines
  1. <!NOWIZARD>
  2.  
  3. <!TITLE>Random Background music
  4.  
  5. <!/TITLE>
  6.  
  7. <!DESCRIPTION>Plays a random background music, choosing from 3 midi. To hear another random music, reload this page.
  8. <!/DESCRIPTION> 
  9.  
  10. <!CATEGORY>img and music effects<!/CATEGORY>
  11.  
  12. <!SCRIPT>
  13. <!-- START OF SCRIPT -->
  14. <script>
  15. <!--
  16. //By George Chiang (http://www.abstract.simplenet.com) More JavaScripts here!
  17. var sound1="allfor.mid"
  18. var sound2="mus.mid"
  19. var sound3="xfile.mid"
  20. var x=Math.random()*10
  21. if (x<=3) x=sound1
  22. else if (x<=6) x=sound2
  23. else 
  24. x=sound3
  25. if (navigator.appName=="Microsoft Internet Explorer")
  26. document.write('<bgsound src='+'"'+x+'"'+' loop="infinite">')
  27. else 
  28. document.write('<embed src='+'"'+x+'"'+'hidden="true" border="0" width="20" height="20" autostart="true" loop="true">')
  29. //-->
  30. </script>
  31. <!-- END OF SCRIPT -->
  32. <!/SCRIPT>
  33.  
  34. <!PREVIEW>
  35. <!-- START OF SCRIPT -->
  36. <script>
  37. <!--
  38. //By George Chiang (http://www.abstract.simplenet.com) More JavaScripts here!
  39. var sound1="allfor.mid"
  40. var sound2="mus.mid"
  41. var sound3="xfile.mid"
  42. var x=Math.random()*10
  43. if (x<=3) x=sound1
  44. else if (x<=6) x=sound2
  45. else 
  46. x=sound3
  47. if (navigator.appName=="Microsoft Internet Explorer")
  48. document.write('<bgsound src='+'"'+x+'"'+' loop="infinite">')
  49. else 
  50. document.write('<embed src='+'"'+x+'"'+'hidden="true" border="0" width="20" height="20" autostart="true" loop="true">')
  51. //-->
  52. </script>
  53.  
  54. <!-- END OF SCRIPT -->
  55. <!/PREVIEW>
  56.  
  57. <!RELATED>NONE<!/RELATED>